home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / misc / spcli.lha / SongPlayerCLI / Rexx / SpCLI / List.rexx < prev    next >
OS/2 REXX Batch file  |  2000-08-23  |  845b  |  50 lines
  1. /* 
  2. SongPlayerCLI v1.52 (by Gareth Griffiths)
  3. E-Mail: gazchap@btinternet.com
  4. List.rexx - Outputs a list of the files in the playlist.
  5. */
  6.  
  7. IF ~SHOW('P','SONGPLAYER.1') THEN DO
  8.     ADDRESS COMMAND
  9.     SAY "Can't find ARexx port 'SONGPLAYER.1'"
  10.     EXIT
  11. END
  12.  
  13. ADDRESS 'SONGPLAYER.1'
  14. OPTIONS RESULTS
  15. TIME_TYPE 2
  16. g=0
  17. 'STOP'
  18. 'GET_SELECTED'
  19. old=result
  20. 'GET_COUNT'
  21. last=result
  22. 'GET_TOTAL'
  23. totaldur=result
  24. DO f=1 to last
  25.     g = g + 1
  26.     ADDRESS SONGPLAYER.1
  27.     'SELECT 'f
  28.     'GET_TITLE'
  29.     title=result
  30.     'GET_ARTIST'
  31.     artist=result
  32.     ADDRESS COMMAND
  33.    IF f<10 then do
  34.         SAY ' ·  ('f') 'artist': 'title
  35.    END
  36.     if f>9 then do
  37.         SAY ' · ('f') 'artist': 'title
  38.    END
  39.     if g=25 then do
  40.         g=0
  41.         address command
  42.         options prompt '(More - Press RETURN)'
  43.         pull more
  44.     end
  45. END
  46. SAY last' files in playlist; 'totaldur' total playing time.'
  47. ADDRESS SONGPLAYER.1
  48. 'SELECT 'old
  49. 'PLAY'
  50. EXIT